'ʵС 

Dim H As Integer
 H= ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'λ1(A)ǿյԪк
 H= ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row   'λ1(A)ǿյԪк

Dim L As Integer
L = Cells(1, Columns.Count).End(xlToLeft).Column 'Ե1Ϊݡ1ʵһԪҲݣֵΪ1ʹ

'
'ǰãʵУСǿеģ
  MsgBox ActiveSheet.UsedRange.Rows.Count, ,    "ǰʵ"   'Ϊգ1
  MsgBox ActiveSheet.UsedRange.Columns.Count, , "ǰʵ"   'Ϊգ1

 MsgBox Sheets("Sheet1").UsedRange.Rows.Count 'ļɾɾУ᲻䣬ɾУ֮С
 
 MsgBox Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'ļɾɾУЧ֮ͬС׼ȷ

  
 